home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1997 February / macformat-047.iso / Demos / Chiller Killers / Chiller / Chiller.DXR / 00480.ls < prev    next >
Encoding:
Text File  |  1996-11-28  |  413 b   |  20 lines
  1. on idle
  2.   global lig, switch, wait, switchit, s
  3.   if the freeBytes < (500 * 1024) then
  4.     unLoadCast()
  5.   end if
  6.   repeat with lig = 18 to 43
  7.     if rollOver(lig) then
  8.       set switch to 0
  9.       set wait to 0
  10.       set switchit to 0
  11.       if the foreColor of sprite lig = 228 then
  12.         nothing()
  13.         next repeat
  14.       end if
  15.       set s to lig - 17
  16.       do("sel" & s & EMPTY)
  17.     end if
  18.   end repeat
  19. end
  20.